home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / Mildred.lha / lha / ZoomDemo.lha / ZoomTest.bb2 < prev    next >
Unknown  |  1999-03-28  |  2.1 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 80 c3 00 80 cc 00 00 | 80 33 2e 6c 00 00 2e 69 |........|.3.l...i|
|00000010| 6e 69 74 67 72 61 70 68 | 69 63 73 00 87 90 20 31 |nitgraph|ics... 1|
|00000020| 2c 33 32 30 2c 32 34 30 | 00 87 90 20 30 2c 33 32 |,320,240|... 0,32|
|00000030| 30 2a 32 2c 32 34 30 2a | 32 00 00 87 87 20 30 2c |0*2,240*|2.... 0,|
|00000040| 33 32 30 2c 32 34 30 20 | 20 20 20 20 20 20 20 20 |320,240 |        |
|00000050| 20 20 20 20 20 20 20 3b | 20 53 65 74 75 70 20 73 |       ;| Setup s|
|00000060| 74 72 75 63 74 75 72 65 | 73 20 66 6f 72 20 63 32 |tructure|s for c2|
|00000070| 70 20 63 6f 6e 76 65 72 | 73 69 6f 6e 73 2e 00 00 |p conver|sions...|
|00000080| a6 02 20 30 2c 33 32 30 | 2a 32 34 30 2c 24 31 30 |.. 0,320|*240,$10|
|00000090| 30 30 32 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |002     |      ; |
|000000a0| 47 65 74 20 73 6f 6d 65 | 20 66 72 65 65 20 43 48 |Get some| free CH|
|000000b0| 49 50 20 6d 65 6d 6f 72 | 79 2e 00 d0 07 20 30 2c |IP memor|y.... 0,|
|000000c0| 33 32 30 2c 32 34 30 2c | 38 2c a6 01 28 30 29 20 |320,240,|8,..(0) |
|000000d0| 20 20 20 3b 20 41 6e 64 | 20 6d 61 6b 65 20 69 74 |   ; And| make it|
|000000e0| 20 61 20 70 6c 61 6e 61 | 72 20 62 69 74 6d 61 70 | a plana|r bitmap|
|000000f0| 2e 00 d0 02 20 30 2c 22 | 5a 6f 6f 6d 50 69 63 37 |.... 0,"|ZoomPic7|
|00000100| 2e 49 46 46 22 2c 30 20 | 20 20 20 20 20 20 20 3b |.IFF",0 |       ;|
|00000110| 20 47 65 74 20 61 20 70 | 69 63 00 88 2e 20 30 2c | Get a p|ic... 0,|
|00000120| a6 01 28 30 29 2c 33 32 | 30 2c 32 34 30 2c 33 32 |..(0),32|0,240,32|
|00000130| 30 2c 32 34 30 20 3b 20 | 4d 61 6b 65 20 69 74 20 |0,240 ; |Make it |
|00000140| 63 68 75 6e 6b 79 00 87 | dd 20 30 2c 30 2c 33 32 |chunky..|. 0,0,32|
|00000150| 30 2c 32 34 30 2c 30 2c | 32 34 30 00 87 dd 20 30 |0,240,0,|240... 0|
|00000160| 2c 30 2c 33 32 30 2c 32 | 34 30 2a 32 2c 33 32 30 |,0,320,2|40*2,320|
|00000170| 2c 30 00 00 80 04 20 73 | 63 72 74 61 67 6c 73 74 |,0.... s|crtaglst|
|00000180| 2e 54 61 67 49 74 65 6d | 28 37 29 20 20 20 20 20 |.TagItem|(7)     |
|00000190| 20 20 20 20 20 20 20 3b | 20 41 6c 6c 20 74 68 69 |       ;| All thi|
|000001a0| 73 20 73 74 75 66 66 20 | 73 65 74 73 20 75 70 20 |s stuff |sets up |
|000001b0| 6f 75 72 00 73 63 72 74 | 61 67 6c 73 74 28 30 29 |our.scrt|aglst(0)|
|000001c0| 5c 74 69 5f 54 61 67 20 | 3d 20 23 53 41 5f 4c 65 |\ti_Tag |= #SA_Le|
|000001d0| 66 74 20 20 20 20 20 20 | 3b 20 54 61 67 6c 69 73 |ft      |; Taglis|
|000001e0| 74 20 66 6f 72 20 74 68 | 65 20 73 63 72 65 65 6e |t for th|e screen|
|000001f0| 20 77 65 00 73 63 72 74 | 61 67 6c 73 74 28 30 29 | we.scrt|aglst(0)|
|00000200| 5c 74 69 5f 44 61 74 61 | 20 3d 20 30 20 20 20 20 |\ti_Data| = 0    |
|00000210| 20 20 20 20 20 20 3b 20 | 77 61 6e 74 2e 20 41 73 |      ; |want. As|
|00000220| 20 79 6f 75 20 63 61 6e | 20 73 65 65 2c 20 69 74 | you can| see, it|
|00000230| 27 73 00 73 63 72 74 61 | 67 6c 73 74 28 31 29 5c |'s.scrta|glst(1)\|
|00000240| 74 69 5f 54 61 67 20 3d | 20 23 53 41 5f 44 65 70 |ti_Tag =| #SA_Dep|
|00000250| 74 68 20 20 20 20 20 3b | 20 72 61 74 68 65 72 20 |th     ;| rather |
|00000260| 6e 6f 6e 2d 73 74 61 6e | 64 61 72 64 2e 00 73 63 |non-stan|dard..sc|
|00000270| 72 74 61 67 6c 73 74 28 | 31 29 5c 74 69 5f 44 61 |rtaglst(|1)\ti_Da|
|00000280| 74 61 20 3d 20 38 20 20 | 20 20 20 20 20 20 20 20 |ta = 8  |        |
|00000290| 20 20 3b 20 69 74 20 64 | 6f 65 73 6e 27 74 20 68 |  ; it d|oesn't h|
|000002a0| 61 76 65 20 74 6f 20 62 | 65 2c 20 69 74 27 73 00 |ave to b|e, it's.|
|000002b0| 73 63 72 74 61 67 6c 73 | 74 28 32 29 5c 74 69 5f |scrtagls|t(2)\ti_|
|000002c0| 54 61 67 20 3d 20 23 53 | 41 5f 57 69 64 74 68 20 |Tag = #S|A_Width |
|000002d0| 20 20 20 20 3b 20 6a 75 | 73 74 20 74 68 61 74 20 |    ; ju|st that |
|000002e0| 74 68 69 73 20 72 6f 75 | 74 69 6e 65 20 6e 65 65 |this rou|tine nee|
|000002f0| 64 73 00 73 63 72 74 61 | 67 6c 73 74 28 32 29 5c |ds.scrta|glst(2)\|
|00000300| 74 69 5f 44 61 74 61 20 | 3d 20 33 32 30 20 20 20 |ti_Data |= 320   |
|00000310| 20 20 20 20 20 20 20 3b | 20 61 20 6c 61 72 67 65 |       ;| a large|
|00000320| 72 20 73 63 72 65 65 6e | 20 74 6f 20 61 76 6f 69 |r screen| to avoi|
|00000330| 64 00 73 63 72 74 61 67 | 6c 73 74 28 33 29 5c 74 |d.scrtag|lst(3)\t|
|00000340| 69 5f 54 61 67 20 3d 20 | 23 53 41 5f 48 65 69 67 |i_Tag = |#SA_Heig|
|00000350| 68 74 20 20 20 20 3b 20 | 63 6c 69 70 70 69 6e 67 |ht    ; |clipping|
|00000360| 2e 00 73 63 72 74 61 67 | 6c 73 74 28 33 29 5c 74 |..scrtag|lst(3)\t|
|00000370| 69 5f 44 61 74 61 20 3d | 20 32 34 30 00 73 63 72 |i_Data =| 240.scr|
|00000380| 74 61 67 6c 73 74 28 34 | 29 5c 74 69 5f 54 61 67 |taglst(4|)\ti_Tag|
|00000390| 20 3d 20 23 53 41 5f 42 | 69 74 4d 61 70 00 73 63 | = #SA_B|itMap.sc|
|000003a0| 72 74 61 67 6c 73 74 28 | 34 29 5c 74 69 5f 44 61 |rtaglst(|4)\ti_Da|
|000003b0| 74 61 20 3d 20 80 b8 20 | d0 01 20 28 30 29 00 73 |ta = .. |.. (0).s|
|000003c0| 63 72 74 61 67 6c 73 74 | 28 35 29 5c 74 69 5f 54 |crtaglst|(5)\ti_T|
|000003d0| 61 67 20 3d 20 23 53 41 | 5f 53 68 6f 77 54 69 74 |ag = #SA|_ShowTit|
|000003e0| 6c 65 00 73 63 72 74 61 | 67 6c 73 74 28 35 29 5c |le.scrta|glst(5)\|
|000003f0| 74 69 5f 44 61 74 61 20 | 3d 20 30 00 73 63 72 74 |ti_Data |= 0.scrt|
|00000400| 61 67 6c 73 74 28 36 29 | 5c 74 69 5f 54 61 67 20 |aglst(6)|\ti_Tag |
|00000410| 3d 20 23 53 41 5f 44 72 | 61 67 67 61 62 6c 65 00 |= #SA_Dr|aggable.|
|00000420| 73 63 72 74 61 67 6c 73 | 74 28 36 29 5c 74 69 5f |scrtagls|t(6)\ti_|
|00000430| 44 61 74 61 20 3d 20 30 | 00 73 63 72 74 61 67 6c |Data = 0|.scrtagl|
|00000440| 73 74 28 37 29 5c 74 69 | 5f 54 61 67 20 3d 20 23 |st(7)\ti|_Tag = #|
|00000450| 54 41 47 5f 45 4e 44 20 | 20 20 20 20 20 3b 20 54 |TAG_END |     ; T|
|00000460| 68 65 20 6d 6f 73 74 20 | 69 6d 70 6f 72 74 61 6e |he most |importan|
|00000470| 74 20 74 61 67 20 6f 66 | 20 74 68 65 6d 20 61 6c |t tag of| them al|
|00000480| 6c 2e 00 00 00 cf 0f 20 | 30 2c 22 4d 69 6c 64 72 |l...... |0,"Mildr|
|00000490| 65 64 44 45 4d 4f 22 2c | 26 73 63 72 74 61 67 6c |edDEMO",|&scrtagl|
|000004a0| 73 74 28 30 29 20 3b 20 | 4f 70 65 6e 20 6f 75 72 |st(0) ; |Open our|
|000004b0| 20 69 6e 74 75 69 74 69 | 6f 6e 20 73 63 72 65 65 | intuiti|on scree|
|000004c0| 6e 2e 00 00 ce 13 20 30 | 20 20 20 20 20 20 20 20 |n..... 0|        |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000004e0| 20 41 74 74 61 63 68 20 | 6f 75 72 20 70 61 6c 65 | Attach |our pale|
|000004f0| 74 74 65 20 74 6f 20 74 | 68 65 20 73 63 72 65 65 |tte to t|he scree|
|00000500| 6e 2e 00 00 87 a1 20 31 | 20 20 20 20 20 20 20 20 |n..... 1|        |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000520| 3b 20 54 65 6c 6c 20 4d | 69 6c 64 72 65 64 20 74 |; Tell M|ildred t|
|00000530| 6f 20 75 73 65 20 6f 75 | 72 20 6d 61 69 6e 00 20 |o use ou|r main. |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000560| 20 20 20 3b 20 63 68 75 | 6e 6b 79 20 62 75 66 66 |   ; chu|nky buff|
|00000570| 65 72 20 28 6a 75 73 74 | 20 69 6e 20 63 61 73 65 |er (just| in case|
|00000580| 29 00 6d 61 67 2e 71 3d | 31 00 69 74 73 2e 6c 3d |).mag.q=|1.its.l=|
|00000590| 30 00 6d 61 67 64 69 72 | 65 63 74 69 6f 6e 2e 71 |0.magdir|ection.q|
|000005a0| 3d 31 2e 35 00 b3 85 00 | 80 bb 20 20 20 20 20 20 |=1.5....|..      |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005c0| 20 20 20 20 20 20 20 20 | 3b 20 52 65 70 65 61 74 |        |; Repeat|
|000005d0| 20 6f 75 72 20 6d 61 69 | 6e 6c 6f 6f 70 20 2e 2e | our mai|nloop ..|
|000005e0| 2e 2e 00 20 20 80 0b 20 | 6d 61 67 2b 6d 61 67 64 |...  .. |mag+magd|
|000005f0| 69 72 65 63 74 69 6f 6e | 3e 32 34 30 2a 32 20 80 |irection|>240*2 .|
|00000600| 8a 20 6d 61 67 2b 6d 61 | 67 64 69 72 65 63 74 69 |. mag+ma|gdirecti|
|00000610| 6f 6e 3c 31 20 80 21 20 | 6d 61 67 64 69 72 65 63 |on<1 .! |magdirec|
|00000620| 74 69 6f 6e 3d 2d 6d 61 | 67 64 69 72 65 63 74 69 |tion=-ma|gdirecti|
|00000630| 6f 6e 00 20 20 6d 61 67 | 2b 6d 61 67 64 69 72 65 |on.  mag|+magdire|
|00000640| 63 74 69 6f 6e 00 20 20 | 53 6f 75 72 63 65 58 2e |ction.  |SourceX.|
|00000650| 71 3d 30 00 20 20 53 6f | 75 72 63 65 59 2e 71 3d |q=0.  So|urceY.q=|
|00000660| 30 00 20 20 4f 70 57 69 | 64 74 68 2e 77 3d 33 32 |0.  OpWi|dth.w=32|
|00000670| 30 00 20 20 4f 70 48 65 | 69 67 68 74 2e 77 3d 32 |0.  OpHe|ight.w=2|
|00000680| 34 30 00 20 20 53 6f 75 | 72 63 65 58 41 64 64 65 |40.  Sou|rceXAdde|
|00000690| 72 2e 71 3d 6d 61 67 2f | 32 34 30 00 20 20 53 6f |r.q=mag/|240.  So|
|000006a0| 75 72 63 65 59 41 64 64 | 65 72 2e 71 3d 6d 61 67 |urceYAdd|er.q=mag|
|000006b0| 2f 32 34 30 00 20 20 44 | 65 73 74 58 2e 77 3d 30 |/240.  D|estX.w=0|
|000006c0| 00 20 20 44 65 73 74 59 | 2e 77 3d 30 00 20 20 88 |.  DestY|.w=0.  .|
|000006d0| 58 20 53 6f 75 72 63 65 | 58 2c 53 6f 75 72 63 65 |X Source|X,Source|
|000006e0| 59 2c 53 6f 75 72 63 65 | 58 41 64 64 65 72 2c 53 |Y,Source|XAdder,S|
|000006f0| 6f 75 72 63 65 59 41 64 | 64 65 72 2c 44 65 73 74 |ourceYAd|der,Dest|
|00000700| 58 2c 44 65 73 74 59 2c | 4f 70 57 69 64 74 68 2c |X,DestY,|OpWidth,|
|00000710| 4f 70 48 65 69 67 68 74 | 2c bc 0f 2c 30 00 00 20 |OpHeight|,..,0.. |
|00000720| 20 87 8b 20 a6 01 28 30 | 29 20 20 20 20 20 20 20 | .. ..(0|)       |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000740| 20 43 6f 6e 76 65 72 74 | 20 6f 75 72 20 63 68 75 | Convert| our chu|
|00000750| 6e 6b 79 20 62 75 66 66 | 65 72 20 74 6f 00 20 20 |nky buff|er to.  |
|00000760| 69 74 73 2b 31 00 00 80 | bc 20 df 04 28 30 29 3c |its+1...|. ..(0)<|
|00000770| 3e 30 20 80 8a 20 df 04 | 28 31 29 3c 3e 30 20 80 |>0 .. ..|(1)<>0 .|
|00000780| 8a 20 b1 02 28 24 34 35 | 29 00 74 3d a5 88 00 74 |. ..($45|).t=...t|
|00000790| 3d a5 8d 28 74 2c 31 29 | 00 69 74 73 3d a5 8d 28 |=..(t,1)|.its=..(|
|000007a0| 69 74 73 2c 31 29 00 61 | 2e 71 3d 35 30 2e 30 2f |its,1).a|.q=50.0/|
|000007b0| 28 74 2f 69 74 73 29 00 | cf 02 20 31 00 c5 01 20 |(t/its).|.. 1... |
|000007c0| 32 2c 31 36 2c 31 36 2c | 34 30 30 2c 36 30 2c 30 |2,16,16,|400,60,0|
|000007d0| 2c 22 54 65 73 74 20 72 | 65 73 75 6c 74 73 22 2c |,"Test r|esults",|
|000007e0| 31 2c 30 00 c5 12 20 32 | 00 dd 82 20 61 2c 22 20 |1,0... 2|... a," |
|000007f0| 66 72 61 6d 65 73 20 70 | 65 72 20 73 65 63 6f 6e |frames p|er secon|
|00000800| 64 22 00 dd 82 20 22 20 | 22 00 dd 82 20 22 50 72 |d"... " |"... "Pr|
|00000810| 65 73 73 20 6d 6f 75 73 | 65 2f 6a 6f 79 20 62 75 |ess mous|e/joy bu|
|00000820| 74 74 6f 6e 2e 2e 2e 22 | 00 80 37 20 32 30 00 80 |tton..."|..7 20..|
|00000830| bb 00 80 bc 20 df 04 28 | 30 29 3c 3e 30 20 80 8a |.... ..(|0)<>0 ..|
|00000840| 20 df 04 28 31 29 3c 3e | 30 20 80 8a 20 b1 02 28 | ..(1)<>|0 .. ..(|
|00000850| 24 34 35 29 00 00       |                         |$45)..  |        |
+--------+-------------------------+-------------------------+--------+--------+